object AdresKataloguF: TAdresKataloguF
  Left = 198
  Top = 109
  BorderStyle = bsSingle
  Caption = 'Adres Katalogu'
  ClientHeight = 290
  ClientWidth = 488
  Color = clBtnFace
  Font.Charset = TURKISH_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Arial'
  Font.Style = []
  OldCreateOrder = False
  Position = poDefaultPosOnly
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 14
  object Label1: TLabel
    Left = 8
    Top = 16
    Width = 25
    Height = 14
    Caption = #350'ehir'
    Transparent = True
  end
  object Label2: TLabel
    Left = 8
    Top = 40
    Width = 16
    Height = 14
    Caption = #304'l'#231'e'
    Transparent = True
  end
  object ilk: TwwDBLookupCombo
    Left = 48
    Top = 8
    Width = 137
    Height = 22
    DisableThemes = False
    DropDownAlignment = taLeftJustify
    Selected.Strings = (
      'icerik'#9'30'#9#350'ehir'#9'F')
    LookupTable = ilQ
    LookupField = 'icerik'
    Style = csDropDownList
    Navigator = False
    TabOrder = 0
    AutoDropDown = True
    ShowButton = True
    AllowClearKey = False
    OnCloseUp = ilkCloseUp
  end
  object ilcek: TwwDBLookupCombo
    Left = 48
    Top = 32
    Width = 137
    Height = 22
    DisableThemes = False
    DropDownAlignment = taLeftJustify
    Selected.Strings = (
      'ilce'#9'30'#9#304'l'#231'e'#9'F')
    LookupTable = ilceQ
    LookupField = 'ilce'
    Style = csDropDownList
    Navigator = False
    TabOrder = 1
    AutoDropDown = True
    ShowButton = True
    AllowClearKey = False
    OnCloseUp = ilcekCloseUp
  end
  object wwDBGrid1: TwwDBGrid
    Left = 46
    Top = 62
    Width = 432
    Height = 179
    DisableThemes = False
    Selected.Strings = (
      'semt'#9'30'#9'Semt'#9'F'
      'guzergahkod'#9'35'#9'G'#252'zergah'#9'F')
    IniAttributes.Delimiter = ';;'
    TitleColor = clBtnFace
    FixedCols = 0
    ShowHorzScrollBar = True
    DataSource = SemtQS
    TabOrder = 2
    TitleAlignment = taLeftJustify
    TitleFont.Charset = TURKISH_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'Arial'
    TitleFont.Style = []
    TitleLines = 1
    TitleButtons = False
    UseTFields = False
  end
  object bkaydet: TBitBtn
    Left = 149
    Top = 248
    Width = 68
    Height = 25
    Caption = 'T'#252'm'#252'ne Ata'
    TabOrder = 3
    OnClick = bkaydetClick
  end
  object bkapat: TBitBtn
    Left = 415
    Top = 248
    Width = 62
    Height = 25
    Caption = 'Kapat'
    TabOrder = 4
    OnClick = bkapatClick
  end
  object bkaydet2: TBitBtn
    Left = 221
    Top = 248
    Width = 76
    Height = 25
    Caption = 'Bo'#351' Olana Ata'
    TabOrder = 5
    OnClick = bkaydet2Click
  end
  object bkaydet3: TBitBtn
    Left = 301
    Top = 248
    Width = 85
    Height = 25
    Caption = 'Se'#231'ili Semte Ata'
    TabOrder = 6
    OnClick = bkaydet3Click
  end
  object bkaydetana: TBitBtn
    Left = 47
    Top = 248
    Width = 75
    Height = 25
    Caption = 'Kaydet'
    TabOrder = 7
    OnClick = bkaydetanaClick
  end
  object ilQ: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from il')
    Left = 440
    Top = 8
  end
  object ilQS: TDataSource
    DataSet = ilQ
    Left = 408
    Top = 8
  end
  object ilceQ: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    DataSource = ilQS
    Parameters = <
      item
        Name = 'tur'
        Attributes = [paSigned]
        DataType = ftSmallint
        Precision = 5
        Value = 100
      end>
    SQL.Strings = (
      'select * from ilce'
      'where ilce.ilid=:tur'
      'order by ilce')
    Left = 440
    Top = 40
  end
  object ilceQS: TDataSource
    DataSet = ilceQ
    Left = 408
    Top = 40
  end
  object SemtQ: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    BeforePost = SemtQBeforePost
    Parameters = <
      item
        Name = 'sehir'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 50
        Value = Null
      end
      item
        Name = 'ilce'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 50
        Value = Null
      end>
    SQL.Strings = (
      'select * from semt'
      'where sehir=:sehir and ilce=:ilce'
      'order by semt')
    Left = 441
    Top = 80
  end
  object SemtQS: TDataSource
    DataSet = SemtQ
    Left = 408
    Top = 80
  end
  object GuzergahAtaQ: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'guzergahkod'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end
      item
        Name = 'semt'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 50
        Value = Null
      end
      item
        Name = 'ilce'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 20
        Value = Null
      end
      item
        Name = 'sehir'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 20
        Value = Null
      end>
    SQL.Strings = (
      'update cari'
      'set guzergahkod=:guzergahkod'
      'where semt=:semt and ilce=:ilce and sehir=:sehir')
    Left = 441
    Top = 120
  end
  object GuzergahAtaBosQ: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'guzergahkod'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end
      item
        Name = 'semt'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 50
        Value = Null
      end
      item
        Name = 'ilce'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 20
        Value = Null
      end
      item
        Name = 'sehir'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 20
        Value = Null
      end>
    SQL.Strings = (
      'update cari'
      'set guzergahkod=:guzergahkod'
      
        'where semt=:semt and ilce=:ilce and sehir=:sehir and isnull(guze' +
        'rgahkod,'#39#39')='#39#39
      '')
    Left = 441
    Top = 152
  end
  object GuzergahAtaSecilenSemtQ: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'guzergahkod'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end
      item
        Name = 'semt'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 50
        Value = Null
      end
      item
        Name = 'ilce'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 20
        Value = Null
      end
      item
        Name = 'sehir'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 20
        Value = Null
      end>
    SQL.Strings = (
      'update cari'
      'set guzergahkod=:guzergahkod'
      'where semt=:semt and ilce=:ilce and sehir=:sehir'
      '')
    Left = 441
    Top = 184
  end
end
